* textmodes/fill.el (fill-region): Don't fill past the end.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cc4f990d16f759d4cdfd954d3e339c2416a95e1a..444dfcaa1cf53a4569104214743d6a25c119e15e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-05-19  Uday S Reddy  <u.s.reddy@cs.bham.ac.uk>  (tiny change)
+
+       * textmodes/fill.el (fill-region): Don't fill past the end (bug#6201).
+
 2010-05-18  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * subr.el (read-quoted-char): Resolve modifiers after key

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index 1b3cc8dc4d8c48f0f345b86f0c8779abe3602a3f..da6e02bfa2f3468e7761d053324046dcb05ac07e 100644 (file)
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -1036,7 +1036,7 @@ space does not end a sentence, so don't break a line there."
          (fill-forward-paragraph -1))
        (if (< (point) beg)
            (goto-char beg))
-       (if (>= (point) initial)
+       (if (and (>= (point) initial) (< (point) end))
            (setq fill-pfx
                  (fill-region-as-paragraph (point) end justify nosqueeze))
          (goto-char end))))